﻿Imports DAO
Imports DTO
Public Class CThamSoBUS

    Public Function CapNhatThamSo(ByVal _TSdto As CThamSoDTO) As Integer
        Dim _dao As New CThamSoDAO()
        Dim _kt As Integer = _dao.CapNhatThamSo(_TSdto)
        Return _kt
    End Function

    Public Function LayDuLieuThamSo() As List(Of CThamSoDTO)
        Dim _dao As New CThamSoDAO()
        Dim _ds As New List(Of CThamSoDTO)
        _ds = _dao.LayDuLieuThamSo()
        Return _ds
    End Function
End Class
